home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Graphics_Utils / Video Easel / CAMRexx / Diffusion.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-06-24  |  370 b   |  19 lines
  1. /* Diffusion by an idea of Toffoli, in CAMRexx by THOR */
  2.  
  3. MakeAlgorithm:
  4.    PLANEALGORITHM margolus hvphases
  5. return
  6.  
  7. MakePlane:
  8.    if plane=0 then; do
  9.       rand=(center_ ^ cw_ ^ ccw_ ^ opp_)
  10.       if rand then      SETPLANE cw
  11.       else              SETPLANE ccw
  12.    end
  13.    if plane=1 then; do
  14.       new=(center_ & cw_) ^ opp_ ^ ccw_
  15.       SETPLANE new
  16.    end
  17. return
  18.  
  19.